home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / T / Think-Pascal-7.0.cpt / THINK Pascal Interfaces / QDOffscreen.p < prev    next >
Encoding:
Text File  |  1991-04-05  |  3.7 KB  |  128 lines  |  [TEXT/PJMM]
  1. {    This file has been processed by The THINK Pascal Source Converter, v1.1.    }
  2.  
  3. {
  4. Created: Sunday, January 6, 1991 at 10:59 PM
  5.     QDOffscreen.p
  6.     Pascal Interface to the Macintosh Libraries
  7.  
  8.         Copyright Apple Computer, Inc.    1985-1990
  9.         All rights reserved
  10. }
  11.  
  12.  
  13. {$IFC UNDEFINED UsingIncludes}
  14. {$SETC UsingIncludes := 0}
  15. {$ENDC}
  16.  
  17.  
  18.     UNIT QDOffscreen;
  19.     INTERFACE
  20.     USES
  21.         Types, Quickdraw;
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35. CONST
  36.  
  37. { New error codes }
  38. cDepthErr = -157;   {invalid pixel depth}
  39. pixPurgeBit = 0;
  40. noNewDeviceBit = 1;
  41. useTempMemBit = 2;
  42. keepLocalBit = 3;
  43. pixelsPurgeableBit = 6;
  44. pixelsLockedBit = 7;
  45. mapPixBit = 16;
  46. newDepthBit = 17;
  47. alignPixBit = 18;
  48. newRowBytesBit = 19;
  49. reallocPixBit = 20;
  50. clipPixBit = 28;
  51. stretchPixBit = 29;
  52. ditherPixBit = 30;
  53. gwFlagErrBit = 31;
  54.  
  55. TYPE
  56. GWorldFlags = SET OF (pixPurge,noNewDevice,useTempMem,keepLocal,GWorldFlags4,
  57.     GWorldFlags5,pixelsPurgeable,pixelsLocked,GWorldFlags8,GWorldFlags9,GWorldFlags10,
  58.     GWorldFlags11,GWorldFlags12,GWorldFlags13,GWorldFlags14,GWorldFlags15,
  59.     mapPix,newDepth,alignPix,newRowBytes,reallocPix,GWorldFlags21,GWorldFlags22,
  60.     GWorldFlags23,GWorldFlags24,GWorldFlags25,GWorldFlags26,GWorldFlags27,
  61.     clipPix,stretchPix,ditherPix,gwFlagErr);
  62.  
  63.  
  64. GWorldPtr = CGrafPtr;
  65.  
  66.  
  67. FUNCTION NewGWorld(VAR offscreenGWorld: GWorldPtr;PixelDepth: INTEGER;boundsRect: Rect;
  68.     cTable: CTabHandle;aGDevice: GDHandle;flags: GWorldFlags): QDErr;
  69.     INLINE $203C, $0016, $0000,$AB1D;
  70. FUNCTION LockPixels(pm: PixMapHandle): BOOLEAN;
  71.     INLINE $203C, $0004, $0001, $AB1D;
  72. PROCEDURE UnlockPixels(pm: PixMapHandle);
  73.     INLINE $203C, $0004, $0002, $AB1D;
  74. FUNCTION UpdateGWorld(VAR offscreenGWorld: GWorldPtr;pixelDepth: INTEGER;
  75.     boundsRect: Rect;cTable: CTabHandle;aGDevice: GDHandle;flags: GWorldFlags): GWorldFlags;
  76.     INLINE $203C, $0016, $0003, $AB1D;
  77. PROCEDURE DisposeGWorld(offscreenGWorld: GWorldPtr);
  78.     INLINE $203C, $0004, $0004, $AB1D;
  79. PROCEDURE GetGWorld(VAR port: CGrafPtr;VAR gdh: GDHandle);
  80.     INLINE $203C, $0008, $0005, $AB1D;
  81. PROCEDURE SetGWorld(port: CGrafPtr;gdh: GDHandle);
  82.     INLINE $203C, $0008, $0006, $AB1D;
  83. PROCEDURE CTabChanged(ctab: CTabHandle);
  84.     INLINE $203C, $0004, $0007, $AB1D;
  85. PROCEDURE PixPatChanged(ppat: PixPatHandle);
  86.     INLINE $203C, $0004, $0008, $AB1D;
  87. PROCEDURE PortChanged(port: GrafPtr);
  88.     INLINE $203C, $0004, $0009, $AB1D;
  89. PROCEDURE GDeviceChanged(gdh: GDHandle);
  90.     INLINE $203C, $0004, $000A, $AB1D;
  91. PROCEDURE AllowPurgePixels(pm: PixMapHandle);
  92.     INLINE $203C, $0004, $000B, $AB1D;
  93. PROCEDURE NoPurgePixels(pm: PixMapHandle);
  94.     INLINE $203C, $0004, $000C, $AB1D;
  95. FUNCTION GetPixelsState(pm: PixMapHandle): GWorldFlags;
  96.     INLINE $203C, $0004, $000D, $AB1D;
  97. PROCEDURE SetPixelsState(pm: PixMapHandle;state: GWorldFlags);
  98.     INLINE $203C, $0008, $000E, $AB1D;
  99. FUNCTION GetPixBaseAddr(pm: PixMapHandle): Ptr;
  100.     INLINE $203C, $0004, $000F, $AB1D;
  101. FUNCTION NewScreenBuffer(globalRect: Rect;purgeable: BOOLEAN;VAR gdh: GDHandle;
  102.     VAR offscreenPixMap: PixMapHandle): QDErr;
  103.     INLINE $203C, $000E, $0010, $AB1D;
  104. PROCEDURE DisposeScreenBuffer(offscreenPixMap: PixMapHandle);
  105.     INLINE $203C, $0004, $0011, $AB1D;
  106. FUNCTION GetGWorldDevice(offscreenGWorld: GWorldPtr): GDHandle;
  107.     INLINE $203C, $0004, $0012, $AB1D;
  108. FUNCTION QDDone(port: GrafPtr): BOOLEAN;
  109.     INLINE $203C, $0004, $0013, $AB1D;
  110. FUNCTION OffscreenVersion: LONGINT;
  111.     INLINE $7014, $AB1D;
  112. FUNCTION NewTempScreenBuffer(globalRect: Rect;purgeable: BOOLEAN;VAR gdh: GDHandle;
  113.     VAR offscreenPixMap: PixMapHandle): QDErr;
  114.     INLINE $203C, $000E, $0015, $AB1D;
  115. FUNCTION PixMap32Bit(pmHandle: PixMapHandle): BOOLEAN;
  116.     INLINE $203C, $0004, $0016, $AB1D;
  117. FUNCTION GetGWorldPixMap(offscreenGWorld: GWorldPtr): PixMapHandle;
  118.     INLINE $203C, $0004, $0017, $AB1D;
  119.  
  120.  
  121.     { UsingQDOffscreen }
  122.  
  123.  
  124.     IMPLEMENTATION
  125. END.
  126.  
  127.  
  128.